Исходный код

Call SayFileNames()

'==========================================================================
'Перечислить имена файлов, выделенных пользователем в окне диалога
'==========================================================================
Sub SayFileNames()
    'Вывести на экран диалог в режиме открытия файла
    Set SelectFile = ThisApplication.Dialogs.FileDlg
    
    'Если пользователь отменил диалог, выйти из процедуры
    If SelectFile.Show = False Then    Exit Sub

    'Разобрать массив имен файлов
    i=0
    For Each FilePath in SelectFile.FileNames
        MsgBox i & ": " & Right(FilePath , Len(FilePath ) -  InStrRev(FilePath ,"\"))
        i = i + 1
    Next    
End Sub

'==========================================================================